home *** CD-ROM | disk | FTP | other *** search
- #
- # Hershey regular fonts - in IRIT format.
- #
-
- iritState("EchoSource", false);
-
- ptXY = function(x, y):
- return = point( x, y, 0.0 );
- PLCurve = function(Pts):
- return = poly( Pts, true );
-
- include("hersh-09.irt");
- include("hershazu.irt");
- include("hershazl.irt");
- include("hershsim.irt");
-
- HersheyFont = list(
- 0.0, 0.0, 0.0,
- hersheyNumSign, hersheyDollar, 0.0,
- hersheyAnd, 0.0, hersheyOParen,
- hersheyCParen, hersheyStar, hersheyPlus,
- hersheyComma, 0.0, hersheyDot,
- hersheySlash, hershey0, hershey1,
- hershey2, hershey3, hershey4,
- hershey5, hershey6, hershey7,
- hershey8, hershey9, hersheyColon,
- hersheySemiColon, 0.0, hersheyEqual,
- 0.0, hersheyQuestion, 0.0,
- hersheyA, hersheyB, hersheyC,
- hersheyD, hersheyE, hersheyF,
- hersheyG, hersheyH, hersheyI,
- hersheyJ, hersheyK, hersheyL,
- hersheyM, hersheyN, hersheyO,
- hersheyP, hersheyQ, hersheyR,
- hersheyS, hersheyT, hersheyU,
- hersheyV, hersheyW, hersheyX,
- hersheyY, hersheyZ, 0.0,
- 0.0, 0.0, 0.0,
- 0.0, 0.0 , hersheyAs,
- hersheyBs, hersheyCs, hersheyDs,
- hersheyEs, hersheyFs, hersheyGs,
- hersheyHs, hersheyIs, hersheyJs,
- hersheyKs, hersheyLs, hersheyMs,
- hersheyNs, hersheyOs, hersheyPs,
- hersheyQs, hersheyRs, hersheySs,
- hersheyTs, hersheyUs, hersheyVs,
- hersheyWs, hersheyXs, hersheyYs,
- hersheyZs, 0.0, hersheyVBar,
- 0.0, 0.0 ) * sc( 0.05 );
-
- save("hersheyRegFont", HersheyFont);
-
- iritState("EchoSource", true);
-
- hersheyString = function( Str, Spacing, Scaling ): I : Char :
- return = nil():
-
- for ( I = 0, 1, sizeof( Str ) - 1,
- Char = nth( hersheyFont, coord( Str, I ) - 31 ):
- if ( thisobj("Char") == list_type,
- snoc( Char * sc( Scaling ) * tx( Spacing * Scaling * I ),
- return ) ) );
-
- UStr = hersheyString( "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 1, 0.07 )
- * tx( -0.9 ) * ty( 0.6 );
- VStr = hersheyString( "abcdefghijklmnopqrstuvwxyz", 1, 0.07 )
- * tx( -0.9 ) * ty( 0.2 );
- GStr = hersheyString( "`1234567890_+~!@#$%^&*()_+", 1, 0.07 )
- * tx( -0.9 ) * ty( -0.2);
- HStr = hersheyString( "{}|:\"<>?[]\\,./", 1, 0.07 )
- * tx( -0.9 ) * ty( -0.6 );
- view_mat = rotx( 0 );
- interact( list( view_mat, UStr, VStr, GStr, HStr ) );
-
-